home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Mirror.dxr / 00001_Startup.ls next >
Encoding:
Text File  |  1998-12-16  |  1.4 KB  |  42 lines
  1. global gMasterData, gNotesList, gMeasureQuestions, gHistoryPrintList
  2.  
  3. on prepareMovie
  4.   setUserArea(gMasterData, #mirror)
  5.   initFields()
  6.   set the keyDownScript to "quitCatcher"
  7.   cursor(0)
  8. end
  9.  
  10. on stopMovie
  11. end
  12.  
  13. on initFields
  14.   set vEmptyList to ["field 1", "field 2", "field 3", "field 4"]
  15.   repeat with X in vEmptyList
  16.     set the text of member X to " "
  17.     set the textFont of member X to "Palatino"
  18.     set the textSize of member X to 14
  19.     set the text of member X to EMPTY
  20.   end repeat
  21.   if not voidp(gNotesList) then
  22.     set the text of member "field 1" to the means of gNotesList
  23.   end if
  24.   if not voidp(gHistoryPrintList) then
  25.     set the text of member "field 2" to gHistoryPrintList
  26.   end if
  27.   if not voidp(gMeasureQuestions) then
  28.     set theScore to the score of gMeasureQuestions
  29.     case 1 of
  30.       (theScore > 35):
  31.         set the text of member "field 3" to "I scored high on the Measure of Strength; I am a confident decision maker."
  32.       (theScore > 20):
  33.         set the text of member "field 3" to "I scored in the middle range on the Measure of Strength; I have some confidence in my decision-making abilities."
  34.       otherwise:
  35.         set the text of member "field 3" to "My confidence in my decision-making skills is low; I may want to work on my decision-making abilities."
  36.     end case
  37.   end if
  38.   if not voidp(gNotesList) then
  39.     set the text of member "field 4" to the CD of gNotesList
  40.   end if
  41. end
  42.